﻿Public Class Todo

    Property Name As String
    Property TodoStatus As Status = Status.NotDone
    Property TodoPriority As Priority = Priority.NotImportant
    Private _subTodos As New List(Of Todo)
    Property Comment As String

    Public Enum Status
        Done
        NotDone
    End Enum

    Public Enum Priority
        Important
        NotImportant
    End Enum

    Public Sub addTodo(ByVal subTodo As Todo)
        _subTodos.Add(subTodo)
    End Sub

End Class
